(facemenu-read-color): Make it work for ttys.

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index d0892a99ac6e1659a57434a8abe6b709b8af5cda..7e7f24cd8ec42457b4a0ae031aacda1d7f51ac20 100644 (file)
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -468,7 +468,8 @@ These special properties include `invisible', `intangible' and `read-only'."
   (let ((col (completing-read (or prompt "Color: ") 
                              (or facemenu-color-alist
                                  (if window-system
-                                     (mapcar 'list (x-defined-colors))))
+                                     (mapcar 'list (x-defined-colors))
+                                   (mapcar 'list (tty-defined-colors))))
                              nil t)))
     (if (equal "" col)
        nil